function [ ] = test_matlab_mod(  )

blep1 = get_blep(get_blip('a500', 'led filter on', 'math lsim'));
blep2 = get_blep(get_blip('a500', 'led filter off', 'math lsim'));
blep3 = get_blep(get_blip('a1200', 'led filter on', 'math lsim'));
blep4 = get_blep(get_blip('a1200', 'led filter off', 'math lsim'));
blep5 = get_blep(get_blip('a1200', 'unfiltered', 'math lsim'));

blep1a = get_blep(get_blip('a500 winuae', 'led filter on', 'math lsim'));
blep2a = get_blep(get_blip('a500 winuae', 'led filter off', 'math lsim'));
blep3a = get_blep(get_blip('a1200 winuae', 'led filter on', 'math lsim'));
blep4a = get_blep(get_blip('a1200 winuae', 'led filter off', 'math lsim'));
blep5a = get_blep(get_blip('a1200 winuae', 'unfiltered', 'math lsim'));

wblep1 = get_blep(get_blip_winuae('a500', 'led filter on'));
wblep2 = get_blep(get_blip_winuae('a500', 'led filter off'));
wblep3 = get_blep(get_blip_winuae('a1200', 'led filter on'));
wblep4 = get_blep(get_blip_winuae('a1200', 'led filter off'));
wblep5 = get_blep(get_blip_winuae('a1200', 'filter off'));

display 'errors beetwen original matlab and altered matlab - should be little';
error_calc(blep1, blep1a);
error_calc(blep2, blep2a);
error_calc(blep3, blep3a);
error_calc(blep4, blep4a);
error_calc(blep5, blep5a);

display 'errors beetwen winuae and original matlab and altered matlab, altered should prevail always';
error_calc(blep1, wblep1);
error_calc(blep1a, wblep1);
error_calc(blep2, wblep2);
error_calc(blep2a, wblep2);
error_calc(blep3, wblep3);
error_calc(blep3a, wblep3);
error_calc(blep4, wblep4);
error_calc(blep4a, wblep4);
error_calc(blep5, wblep5);
error_calc(blep5a, wblep5);

figure(1);
hold on;
plot(blep1, 'r');
plot(blep1a, 'g');
plot(wblep1, 'c');
title('a500 led filter on');
legend('matlab-org', 'matlab-mod', 'winuae');

figure(2);
hold on;
plot(blep2, 'r');
plot(blep2a, 'g');
plot(wblep2, 'c');
title('a500 led filter off');
legend('matlab-org', 'matlab-mod', 'winuae');

figure(3);
hold on;
plot(blep3, 'r');
plot(blep3a, 'g');
plot(wblep3, 'c');
title('a1200 led filter on');
legend('matlab-org', 'matlab-mod', 'winuae');

figure(4);
hold on;
plot(blep4, 'r');
plot(blep4a, 'g');
plot(wblep4, 'c');
title('a500 led filter off');
legend('matlab-org', 'matlab-mod', 'winuae');

figure(5);
hold on;
plot(blep5, 'r');
plot(blep5a, 'g');
plot(wblep5, 'c');
title('filter off');
legend('matlab-org', 'matlab-mod', 'winuae');

end

